home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / nan_a.inc < prev    next >
Encoding:
Text File  |  1998-07-27  |  8.5 KB  |  562 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    ìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. low_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subi.w    #16,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$0018,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     subi.w    #16,d1
  62.     addi.w    #16,d2
  63.     addq.w    #1,d7
  64.     move.w    d1,(a6)+
  65.     move.w    d2,(a6)+
  66.     move.w    d7,(a6)+
  67.     move.w    #$0003,(a6)+
  68.  
  69.     addi.w    #16,d1
  70.     addq.w    #1,d7
  71.     move.w    d1,(a6)+
  72.     move.w    d2,(a6)+
  73.     move.w    d7,(a6)+
  74.     move.w    #$0003,(a6)+
  75.  
  76.     rts
  77. @@:
  78.     addi.w    #$4019,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     addi.w    #16,d1
  85.     subq.w    #1,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     subi.w    #16,d1
  92.     addi.w    #16,d2
  93.     addq.w    #3,d7
  94.     move.w    d1,(a6)+
  95.     move.w    d2,(a6)+
  96.     move.w    d7,(a6)+
  97.     move.w    #$0003,(a6)+
  98.  
  99.     addi.w    #16,d1
  100.     subq.w    #1,d7
  101.     move.w    d1,(a6)+
  102.     move.w    d2,(a6)+
  103.     move.w    d7,(a6)+
  104.     move.w    #$0003,(a6)+
  105.  
  106.     subi.w    #16,d1
  107.     addi.w    #16,d2
  108.     addq.w    #3,d7
  109.     move.w    d1,(a6)+
  110.     move.w    d2,(a6)+
  111.     move.w    d7,(a6)+
  112.     move.w    #$0003,(a6)+
  113.  
  114.     addi.w    #16,d1
  115.     subq.w    #1,d7
  116.     move.w    d1,(a6)+
  117.     move.w    d2,(a6)+
  118.     move.w    d7,(a6)+
  119.     move.w    #$0003,(a6)+
  120.  
  121.     subi.w    #16,d1
  122.     addi.w    #16,d2
  123.     addq.w    #3,d7
  124.     move.w    d1,(a6)+
  125.     move.w    d2,(a6)+
  126.     move.w    d7,(a6)+
  127.     move.w    #$0003,(a6)+
  128.  
  129.     addi.w    #16,d1
  130.     subq.w    #1,d7
  131.     move.w    d1,(a6)+
  132.     move.w    d2,(a6)+
  133.     move.w    d7,(a6)+
  134.     move.w    #$0003,(a6)+
  135.  
  136.     rts
  137. *---------------------------------------
  138. low_t:
  139.     move.w    C_X(a1),d1
  140.     move.w    C_Y(a1),d2
  141.     subi.w    #16,d1
  142.     subi.w    #32,d2
  143.     tst.w    C_LR_F(a1)
  144.     bne    @f
  145.  
  146.     addi.w    #$0020,d7
  147.     move.w    d1,(a6)+
  148.     move.w    d2,(a6)+
  149.     move.w    d7,(a6)+
  150.     move.w    #$0003,(a6)+
  151.  
  152.     addi.w    #16,d1
  153.     addq.w    #1,d7
  154.     move.w    d1,(a6)+
  155.     move.w    d2,(a6)+
  156.     move.w    d7,(a6)+
  157.     move.w    #$0003,(a6)+
  158.  
  159.     subi.w    #16,d1
  160.     addi.w    #16,d2
  161.     addq.w    #1,d7
  162.     move.w    d1,(a6)+
  163.     move.w    d2,(a6)+
  164.     move.w    d7,(a6)+
  165.     move.w    #$0003,(a6)+
  166.  
  167.     addi.w    #16,d1
  168.     addq.w    #1,d7
  169.     move.w    d1,(a6)+
  170.     move.w    d2,(a6)+
  171.     move.w    d7,(a6)+
  172.     move.w    #$0003,(a6)+
  173.  
  174.     subi.w    #16,d1
  175.     addi.w    #16,d2
  176.     addq.w    #1,d7
  177.     move.w    d1,(a6)+
  178.     move.w    d2,(a6)+
  179.     move.w    d7,(a6)+
  180.     move.w    #$0003,(a6)+
  181.  
  182.     addi.w    #16,d1
  183.     addq.w    #1,d7
  184.     move.w    d1,(a6)+
  185.     move.w    d2,(a6)+
  186.     move.w    d7,(a6)+
  187.     move.w    #$0003,(a6)+
  188.  
  189.     subi.w    #16,d1
  190.     addi.w    #16,d2
  191.     addq.w    #1,d7
  192.     move.w    d1,(a6)+
  193.     move.w    d2,(a6)+
  194.     move.w    d7,(a6)+
  195.     move.w    #$0003,(a6)+
  196.  
  197.     addi.w    #16,d1
  198.     addq.w    #1,d7
  199.     move.w    d1,(a6)+
  200.     move.w    d2,(a6)+
  201.     move.w    d7,(a6)+
  202.     move.w    #$0003,(a6)+
  203.  
  204.     rts
  205. @@:
  206.     addi.w    #$4021,d7
  207.     move.w    d1,(a6)+
  208.     move.w    d2,(a6)+
  209.     move.w    d7,(a6)+
  210.     move.w    #$0003,(a6)+
  211.  
  212.     addi.w    #16,d1
  213.     subq.w    #1,d7
  214.     move.w    d1,(a6)+
  215.     move.w    d2,(a6)+
  216.     move.w    d7,(a6)+
  217.     move.w    #$0003,(a6)+
  218.  
  219.     subi.w    #16,d1
  220.     addi.w    #16,d2
  221.     addq.w    #3,d7
  222.     move.w    d1,(a6)+
  223.     move.w    d2,(a6)+
  224.     move.w    d7,(a6)+
  225.     move.w    #$0003,(a6)+
  226.  
  227.     addi.w    #16,d1
  228.     subq.w    #1,d7
  229.     move.w    d1,(a6)+
  230.     move.w    d2,(a6)+
  231.     move.w    d7,(a6)+
  232.     move.w    #$0003,(a6)+
  233.  
  234.     subi.w    #16,d1
  235.     addi.w    #16,d2
  236.     addq.w    #3,d7
  237.     move.w    d1,(a6)+
  238.     move.w    d2,(a6)+
  239.     move.w    d7,(a6)+
  240.     move.w    #$0003,(a6)+
  241.  
  242.     addi.w    #16,d1
  243.     subq.w    #1,d7
  244.     move.w    d1,(a6)+
  245.     move.w    d2,(a6)+
  246.     move.w    d7,(a6)+
  247.     move.w    #$0003,(a6)+
  248.  
  249.     subi.w    #16,d1
  250.     addi.w    #16,d2
  251.     addq.w    #3,d7
  252.     move.w    d1,(a6)+
  253.     move.w    d2,(a6)+
  254.     move.w    d7,(a6)+
  255.     move.w    #$0003,(a6)+
  256.  
  257.     addi.w    #16,d1
  258.     subq.w    #1,d7
  259.     move.w    d1,(a6)+
  260.     move.w    d2,(a6)+
  261.     move.w    d7,(a6)+
  262.     move.w    #$0003,(a6)+
  263.  
  264.     rts
  265. *---------------------------------------
  266. mid_s:
  267.     move.w    C_X(a1),d1
  268.     move.w    C_Y(a1),d2
  269.     subi.w    #32,d2
  270.     tst.w    C_LR_F(a1)
  271.     bne    @f
  272.  
  273.     subi.w    #8,d1
  274.     addi.w    #$0028,d7
  275.     move.w    d1,(a6)+
  276.     move.w    d2,(a6)+
  277.     move.w    d7,(a6)+
  278.     move.w    #$0003,(a6)+
  279.  
  280.     addi.w    #16,d1
  281.     addq.w    #1,d7
  282.     move.w    d1,(a6)+
  283.     move.w    d2,(a6)+
  284.     move.w    d7,(a6)+
  285.     move.w    #$0003,(a6)+
  286.  
  287.     subi.w    #16,d1
  288.     addi.w    #16,d2
  289.     addq.w    #1,d7
  290.     move.w    d1,(a6)+
  291.     move.w    d2,(a6)+
  292.     move.w    d7,(a6)+
  293.     move.w    #$0003,(a6)+
  294.  
  295.     addi.w    #16,d2
  296.     addq.w    #1,d7
  297.     move.w    d1,(a6)+
  298.     move.w    d2,(a6)+
  299.     move.w    d7,(a6)+
  300.     move.w    #$0003,(a6)+
  301.  
  302.     addi.w    #16,d2
  303.     addq.w    #1,d7
  304.     move.w    d1,(a6)+
  305.     move.w    d2,(a6)+
  306.     move.w    d7,(a6)+
  307.     move.w    #$0003,(a6)+
  308.  
  309.     rts
  310. @@:
  311.     subi.w    #24,d1
  312.     addi.w    #$4029,d7
  313.     move.w    d1,(a6)+
  314.     move.w    d2,(a6)+
  315.     move.w    d7,(a6)+
  316.     move.w    #$0003,(a6)+
  317.  
  318.     addi.w    #16,d1
  319.     subq.w    #1,d7
  320.     move.w    d1,(a6)+
  321.     move.w    d2,(a6)+
  322.     move.w    d7,(a6)+
  323.     move.w    #$0003,(a6)+
  324.  
  325.     addi.w    #16,d2
  326.     addq.w    #2,d7
  327.     move.w    d1,(a6)+
  328.     move.w    d2,(a6)+
  329.     move.w    d7,(a6)+
  330.     move.w    #$0003,(a6)+
  331.  
  332.     addi.w    #16,d2
  333.     addq.w    #1,d7
  334.     move.w    d1,(a6)+
  335.     move.w    d2,(a6)+
  336.     move.w    d7,(a6)+
  337.     move.w    #$0003,(a6)+
  338.  
  339.     addi.w    #16,d2
  340.     addq.w    #1,d7
  341.     move.w    d1,(a6)+
  342.     move.w    d2,(a6)+
  343.     move.w    d7,(a6)+
  344.     move.w    #$0003,(a6)+
  345.  
  346.     rts
  347. *---------------------------------------
  348. mid_t:
  349.     move.w    C_X(a1),d1
  350.     move.w    C_Y(a1),d2
  351.     subi.w    #32,d2
  352.     tst.w    C_LR_F(a1)
  353.     bne    @f
  354.  
  355.     subi.w    #8,d1
  356.     addi.w    #$002d,d7
  357.     move.w    d1,(a6)+
  358.     move.w    d2,(a6)+
  359.     move.w    d7,(a6)+
  360.     move.w    #$0003,(a6)+
  361.  
  362.     addi.w    #16,d1
  363.     addq.w    #1,d7
  364.     move.w    d1,(a6)+
  365.     move.w    d2,(a6)+
  366.     move.w    d7,(a6)+
  367.     move.w    #$0003,(a6)+
  368.  
  369.     subi.w    #16,d1
  370.     addi.w    #16,d2
  371.     addq.w    #1,d7
  372.     move.w    d1,(a6)+
  373.     move.w    d2,(a6)+
  374.     move.w    d7,(a6)+
  375.     move.w    #$0003,(a6)+
  376.  
  377.     addi.w    #16,d2
  378.     addq.w    #1,d7
  379.     move.w    d1,(a6)+
  380.     move.w    d2,(a6)+
  381.     move.w    d7,(a6)+
  382.     move.w    #$0003,(a6)+
  383.  
  384.     addi.w    #16,d2
  385.     addq.w    #1,d7
  386.     move.w    d1,(a6)+
  387.     move.w    d2,(a6)+
  388.     move.w    d7,(a6)+
  389.     move.w    #$0003,(a6)+
  390.  
  391.     rts
  392. @@:
  393.     subi.w    #24,d1
  394.     addi.w    #$402e,d7
  395.     move.w    d1,(a6)+
  396.     move.w    d2,(a6)+
  397.     move.w    d7,(a6)+
  398.     move.w    #$0003,(a6)+
  399.  
  400.     addi.w    #16,d1
  401.     subq.w    #1,d7
  402.     move.w    d1,(a6)+
  403.     move.w    d2,(a6)+
  404.     move.w    d7,(a6)+
  405.     move.w    #$0003,(a6)+
  406.  
  407.     addi.w    #16,d2
  408.     addq.w    #2,d7
  409.     move.w    d1,(a6)+
  410.     move.w    d2,(a6)+
  411.     move.w    d7,(a6)+
  412.     move.w    #$0003,(a6)+
  413.  
  414.     addi.w    #16,d2
  415.     addq.w    #1,d7
  416.     move.w    d1,(a6)+
  417.     move.w    d2,(a6)+
  418.     move.w    d7,(a6)+
  419.     move.w    #$0003,(a6)+
  420.  
  421.     addi.w    #16,d2
  422.     addq.w    #1,d7
  423.     move.w    d1,(a6)+
  424.     move.w    d2,(a6)+
  425.     move.w    d7,(a6)+
  426.     move.w    #$0003,(a6)+
  427.  
  428.     rts
  429. *---------------------------------------
  430. high_s:
  431.     move.w    C_X(a1),d1
  432.     move.w    C_Y(a1),d2
  433.     subi.w    #8,d1
  434.     subi.w    #32,d2
  435.     tst.w    C_LR_F(a1)
  436.     bne    @f
  437.  
  438.     addi.w    #$0032,d7
  439.     move.w    d1,(a6)+
  440.     move.w    d2,(a6)+
  441.     move.w    d7,(a6)+
  442.     move.w    #$0003,(a6)+
  443.  
  444.     addi.w    #16,d2
  445.     addq.w    #1,d7
  446.     move.w    d1,(a6)+
  447.     move.w    d2,(a6)+
  448.     move.w    d7,(a6)+
  449.     move.w    #$0003,(a6)+
  450.  
  451.     addi.w    #16,d2
  452.     addq.w    #1,d7
  453.     move.w    d1,(a6)+
  454.     move.w    d2,(a6)+
  455.     move.w    d7,(a6)+
  456.     move.w    #$0003,(a6)+
  457.  
  458.     addi.w    #16,d2
  459.     addq.w    #1,d7
  460.     move.w    d1,(a6)+
  461.     move.w    d2,(a6)+
  462.     move.w    d7,(a6)+
  463.     move.w    #$0003,(a6)+
  464.  
  465.     rts
  466. @@:
  467.     addi.w    #$4032,d7
  468.     move.w    d1,(a6)+
  469.     move.w    d2,(a6)+
  470.     move.w    d7,(a6)+
  471.     move.w    #$0003,(a6)+
  472.  
  473.     addi.w    #16,d2
  474.     addq.w    #1,d7
  475.     move.w    d1,(a6)+
  476.     move.w    d2,(a6)+
  477.     move.w    d7,(a6)+
  478.     move.w    #$0003,(a6)+
  479.  
  480.     addi.w    #16,d2
  481.     addq.w    #1,d7
  482.     move.w    d1,(a6)+
  483.     move.w    d2,(a6)+
  484.     move.w    d7,(a6)+
  485.     move.w    #$0003,(a6)+
  486.  
  487.     addi.w    #16,d2
  488.     addq.w    #1,d7
  489.     move.w    d1,(a6)+
  490.     move.w    d2,(a6)+
  491.     move.w    d7,(a6)+
  492.     move.w    #$0003,(a6)+
  493.  
  494.     rts
  495. *---------------------------------------
  496. high_t:
  497.     move.w    C_X(a1),d1
  498.     move.w    C_Y(a1),d2
  499.     subi.w    #8,d1
  500.     subi.w    #32,d2
  501.     tst.w    C_LR_F(a1)
  502.     bne    @f
  503.  
  504.     addi.w    #$0036,d7
  505.     move.w    d1,(a6)+
  506.     move.w    d2,(a6)+
  507.     move.w    d7,(a6)+
  508.     move.w    #$0003,(a6)+
  509.  
  510.     addi.w    #16,d2
  511.     addq.w    #1,d7
  512.     move.w    d1,(a6)+
  513.     move.w    d2,(a6)+
  514.     move.w    d7,(a6)+
  515.     move.w    #$0003,(a6)+
  516.  
  517.     addi.w    #16,d2
  518.     addq.w    #1,d7
  519.     move.w    d1,(a6)+
  520.     move.w    d2,(a6)+
  521.     move.w    d7,(a6)+
  522.     move.w    #$0003,(a6)+
  523.  
  524.     addi.w    #16,d2
  525.     addq.w    #1,d7
  526.     move.w    d1,(a6)+
  527.     move.w    d2,(a6)+
  528.     move.w    d7,(a6)+
  529.     move.w    #$0003,(a6)+
  530.  
  531.     rts
  532. @@:
  533.     addi.w    #$4036,d7
  534.     move.w    d1,(a6)+
  535.     move.w    d2,(a6)+
  536.     move.w    d7,(a6)+
  537.     move.w    #$0003,(a6)+
  538.  
  539.     addi.w    #16,d2
  540.     addq.w    #1,d7
  541.     move.w    d1,(a6)+
  542.     move.w    d2,(a6)+
  543.     move.w    d7,(a6)+
  544.     move.w    #$0003,(a6)+
  545.  
  546.     addi.w    #16,d2
  547.     addq.w    #1,d7
  548.     move.w    d1,(a6)+
  549.     move.w    d2,(a6)+
  550.     move.w    d7,(a6)+
  551.     move.w    #$0003,(a6)+
  552.  
  553.     addi.w    #16,d2
  554.     addq.w    #1,d7
  555.     move.w    d1,(a6)+
  556.     move.w    d2,(a6)+
  557.     move.w    d7,(a6)+
  558.     move.w    #$0003,(a6)+
  559.  
  560.     rts
  561. *---------------------------------------
  562.